﻿! door_panel_M /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d= panel frame width,
! e=fill material, f=internal frame width of fill, 
! g= no. of horizontal panes
i=(a-(g+1)*d)/g    ! width of fill panes
for v=0 to g-1
  put d+v*(d+i),d,15,
    (v+1)*(d+i),d,15,
    (v+1)*(d+i),3*b/7-d/2,15,
    d+v*(d+i),3*b/7-d/2,15,
    d+v*(d+i),d,-1,
    d+v*(d+i),3*b/7+d/2,15,
    (v+1)*(d+i),3*b/7+d/2,15,
    (v+1)*(d+i),6*b/7-d,15,
    d+v*(d+i),6*b/7-d,15,
    d+v*(d+i),3*b/7+d/2,-1,
    d+v*(d+i),6*b/7,15,
    (v+1)*(d+i),6*b/7,15,
    (v+1)*(d+i),b-d,15,
    d+v*(d+i),b-d,15,
    d+v*(d+i),6*b/7,-1
next v
prism_ 5+nsp/3, c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,-1,
use (nsp)
addz c/4
for v=0 to g-1
  prism_ 10, c/2,
        get (3*5),
        d+v*(d+i)+f,d+f,15,
        (v+1)*(d+i)-f,d+f,15,
        (v+1)*(d+i)-f,3*b/7-d/2-f,15,
        d+v*(d+i)+f,3*b/7-d/2-f,15,
        d+v*(d+i)+f,d+f,-1
   prism_ 10, c/2,
        get (3*5),
        d+v*(d+i)+f,3*b/7+d/2+f,15,
        (v+1)*(d+i)-f,3*b/7+d/2+f,15,
        (v+1)*(d+i)-f,6*b/7-d-f,15,
        d+v*(d+i)+f,6*b/7-d-f,15,
        d+v*(d+i)+f,3*b/7+d/2+f,-1
   prism_ 10, c/2,
        get (3*5),
        d+v*(d+i)+f,6*b/7+f,15,
        (v+1)*(d+i)-f,6*b/7+f,15,
        (v+1)*(d+i)-f,b-d-f,15,
        d+v*(d+i)+f,b-d-f,15,
        d+v*(d+i)+f,6*b/7+f,-1
next v
material e
addz c/8                   ! ***fill definition
   for v=0 to g-1
      prism_ 4, 0.004,
        d+v*(d+i)+f,d+f,15,
        (v+1)*(d+i)-f,d+f,15,
        (v+1)*(d+i)-f,3*b/7-d/2-f,15,
        d+v*(d+i)+f,3*b/7-d/2-f,15
      prism_ 4, 0.004,
        d+v*(d+i)+f,3*b/7+d/2+f,15,
        (v+1)*(d+i)-f,3*b/7+d/2+f,15,
        (v+1)*(d+i)-f,6*b/7-d-f,15,
        d+v*(d+i)+f,6*b/7-d-f,15
      prism_ 4, 0.004,
        d+v*(d+i)+f,6*b/7+f,15,
        (v+1)*(d+i)-f,6*b/7+f,15,
        (v+1)*(d+i)-f,b-d-f,15,
        d+v*(d+i)+f,b-d-f,15
  next v
end
